home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / clock_nc < prev    next >
Internet Message Format  |  1995-03-31  |  4KB
  1. From: Nicola Catacchio 259126 <ares@alessia.dei.unipd.it>
  2. Subject:  v03i034:  clock_nc - Analog clock on stack display v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Organization: D.E.I. Universita' di Padova - ITALY
  5. Followup-To: comp.sys.hp48
  6. Approved: spell@seq.uncwil.edu
  7.  
  8. Checksum: 2303412954 (verify with brik -cv)
  9. Submitted-by: Nicola Catacchio 259126 <ares@alessia.dei.unipd.it>
  10. Posting-number: Volume 3, Issue 34
  11. Archive-name: clock_nc/part01
  12.  
  13. BEGIN_DOC clock.doc
  14.     A small rpl (harmless) program that overwrites the upper right
  15. corner of stack display (where usally the digital clock and some indicators
  16. are shown) with a small but easily readible face with an analog clock.
  17.     Store it in the variable /Gbenter (betaenter)in the HOME directory
  18. , set flags -63 and62 ( -63 SF and [leftshift] [usr] ) and look.
  19.     Bugs:
  20. 1)doesn't allow the refresh of the upper part of the screen
  21. 2)makes the screen flip every comand line evaluation
  22. 3)works only with PICT size 131x64
  23. 4)not too much fast
  24.  
  25.     It's just an idea,so I hope somebody more skilled than me will
  26. try to make it better.
  27.  
  28.     Nicola Catacchio (ares@alessia.unipd.it)
  29. -------------------------------------------------------------------------------
  30. END_DOC
  31.  
  32. BEGIN_RPL clock.rpl
  33. %%HP: T(3)A(R)F(.);
  34. \<< DROP
  35.   IF TIME 100 * IP
  36. DUP LTIM SAME NOT
  37.   THEN PATH HOME
  38. SWAP 'LTIM' STO
  39. 'PPAR' DUP RCL {
  40. (-1.5,-7.3696422793)
  41. (11.5,.936617179417)
  42. X 0 (0,0) FUNCTION
  43. Y } ROT STO PICT {
  44. # 0h # 0h } DUP2 {
  45. # 1Fh # Fh } SUB
  46. PICT { # 0h # 0h }
  47. GROB 32 16 00280200004001000000000006000030000000000000000000000000030000E0000000000000000000000000060000300000000000000000FF4009FF00280200
  48. REPL TIME DUP FP
  49. .15 -
  50. (0,-10.471975512) *
  51. EXP .85 * (0,0)
  52. LINE HMS\-> 20 / .15
  53. - (0,-10.471975512)
  54. * EXP .5 * (0,0)
  55. LINE PICT { # 0h
  56. # 0h } { # 1Fh # Fh
  57. } SUB 5 ROLLD REPL
  58. 'PPAR' STO 'FAC'
  59. STO EVAL
  60.   ELSE DROP
  61.   END LCD\-> { # 64h
  62. # 0h } FAC REPL
  63. \->LCD 1 FREEZE
  64. \>>
  65. END_RPL
  66.  
  67. BEGIN_ASC clock.asc
  68. %%HP: T(3)A(D)F(.);
  69. "D9D20E16328DBF13CE227F791339202000000000000010EEDA1D6BB178BF184E
  70. 2040C44594D4167E1F88E1AFE22D9D20521A1041A1DBBF14563284E2040C4459
  71. 4D497632DCC024563284E2040050514259763278BF104B0247A2077920000000
  72. 0000000519000039722469637977920100000000000511099971497171663908
  73. 4E2010854B2A27792000000000000000000000000000000000166E184E201095
  74. B2130E0CF1DCC02634E147A20E4A20510000000000000000000E4A2051000000
  75. 0000000000000B21302ABF147A20E4A2051000F100000000000000E4A2051000
  76. F000000000000000B2130C58C1634E147A20E4A20510000000000000000000E4
  77. A20510000000000000000000B2130E1B20F80000100002000002802000040010
  78. 00000000006000030000000000000000000000000030000E0000000000000000
  79. 000000000060000300000000000000000FF4009FF00280200AE8C17F79178BF1
  80. 3ABB133920999000000000051090DA1779200000000000000000100021557917
  81. 4019EEDA1509B1339209990000000000580EEDA1779200000000000000000000
  82. 0000000000000893E1E3FB133920100000000000002050FA1339209990000000
  83. 00051090DA17792000000000000000001000215579174019EEDA1509B1339209
  84. 990000000000050EEDA17792000000000000000000000000000000000893E163
  85. 4E147A20E4A20510000000000000000000E4A20510000000000000000000B213
  86. 047A20E4A2051000F100000000000000E4A2051000F000000000000000B2130C
  87. 58C1D13A20DCF1AE8C14563284E20400505142597632DCC024563284E2030641
  88. 43497632DCC02EB3A1B21305BF228DBF15DF22275E147A20E4A2051000460000
  89. 0000000000E4A20510000000000000000000B213084E2030641434AE8C1D85E1
  90. 9C2A24A5A193632B2130FA25"
  91. END_ASC
  92.  
  93. BYTES: #52Afh 691.5
  94.  
  95. BEGIN_UU clock.uue
  96. begin 644 clock
  97. M2%!(4#0X+46=+>!A(]C[,>PB]Y<QDP("`````````>ZMT;8;A_N!Y`($3%1)I
  98. M36'G\8@>^B[2V0(EH0$4&KW[064C2"Y`P$25U)1G(\T,0F4C2"Y```45))5GL
  99. M(X?[`;0@="IPEP(```````!0D0``DR="EC:7=RD0``````!0$9"9%Y07%V:3&
  100. M@.0"`5BTHG*7`@````````````````````!AYH'D`@%9*S'@P!_-#&)#'G0J%
  101. MX*0"%0```````````."D`A4```````````"P$@.B^T&G`DXJ4`$`'P``````,
  102. M``!.*E`!``\`````````*S'`A1PVY$&G`DXJ4`$```````````!.*E`!````>
  103. M````````*S'@L0*/```!`"```"`(`@!```$```````8`,```````````````/
  104. M```#`.``````````````````!@`P``````````#P3P#Y#R`(`J".'/>7<;@?,
  105. MH[LQDP*9"0````!0`0FM<9<"```````````!`!)5EW$$D>ZM49`;,RF0F0``O
  106. M````A>#>&G<I`````````````````````(`Y'CZ_,9,"`0````````(%KS&3]
  107. M`ID)`````%`!":UQEP(```````````$`$E67<021[JU1D!LS*9"9``````!0B
  108. MX-X:=RD`````````````````````@#D>-N1!IP).*E`!````````````3BI0*
  109. M`0```````````"LQ0*<"3BI0`0`?`````````$XJ4`$`#P`````````K,<"%/
  110. M'!VC`LT?ZLA!92-(+D``!14DE6<CS0Q"92-(+C!@%#249R/-#.([&BLQ4/LB_
  111. MV/M1_2)RY4&G`DXJ4`$`9`````````!.*E`!````````````*S&`Y`(#1D%##
  112. /ZLC16![)HD):&CDVLA(#_
  113. ``
  114. end
  115. END_UU
  116.